home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ WinNT Max User.xpl < prev    next >
Text File  |  1999-06-12  |  1KB  |  58 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Network\Server"
  5. "NAME"="Max. User Connections"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Max. Connects"
  8. "DESCRIPTION 1"="Use this plug-in to change the maximum count of users that are allowed to connect to this machine at a time."
  9. "DESCRIPTION 2"="This setting is useful if the server is slow."
  10. "DESCRIPTION 3"="To restore the original settings, clear the field."
  11. "AUTHOR"="Xteq Systems"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  14. "COMMENT 2"="Version 1.0"
  15.  
  16.  
  17. sP="HKLM\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters\Users"
  18. Sub Plugin_Initialize 
  19.  If GetWinVer=2 then 
  20.     i=RegReadValue(sP)
  21.     SetUIElement 1,i
  22.  else
  23.     Disable
  24.  end if
  25. End Sub
  26.  
  27. Sub Plugin_CheckData(ElementIndex)
  28. End Sub
  29.  
  30. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  31.  i=GetUIElement(1)
  32.  
  33.  if i="" then
  34.     'Delete Value   
  35.  
  36.     i=RegReadValue(sP)
  37.     if not isEmpty(i) then 
  38.        Call RegDeleteValue(sP)
  39.     end if
  40.  
  41.  else
  42.     'Set Value
  43.  
  44.     if IsNumeric(i) then
  45.        Call RegWriteValue(sP,i,2)
  46.        Call Restart
  47.     else
  48.         Call DataInvalid("Please enter a valid numeric value.")
  49.     end if
  50.  
  51.  end if
  52.   
  53.  
  54. End Sub
  55.  
  56. Sub Plugin_Terminate 
  57. End Sub
  58.